Private Sub cmdFirst_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles cmdFirst.Click
    rstProducts.MoveFirst()
    Call DisplayFields()
End Sub

Private Sub cmdlast_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles cmdlast.Click
    rstProducts.MoveLast()
    Call DisplayFields()
End Sub

Private Sub cmdnext_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles cmdnext.Click
    rstProducts.MoveNext()
    Call DisplayFields()
End Sub

Private Sub cmdprevious_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles cmdprevious.Click
    rstProducts.MovePrevious()
    Call DisplayFields()
End Sub
